home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1991 …esperately Seeking Seven / Desperately Seeking Seven.2mg / Dev.CD.8 / Essentials / Tools / Libraries / ToolLib.1.0 / ToolLib.p < prev    next >
Encoding:
Text File  |  1990-08-14  |  891 b   |  57 lines  |  [04] ASCII Text (0x0000)
  1. Unit ToolLib;
  2.  
  3. Interface
  4.  
  5. { Spinning Cursor stuff }
  6.  
  7. Procedure InitCursorCtl(delaycount : longint);
  8.  
  9. Procedure RotateCursor(counter : longint);
  10.  
  11. Procedure SpinCursor(increment : integer);
  12.  
  13. Procedure Show_Cursor;
  14.  
  15. Procedure Hide_Cursor;
  16.  
  17.  
  18. { Error Message Manager stuff}
  19.  
  20. Procedure InitErrMgr(toolErrFilename, sysErrFilename : Str255; showToolErrNbrs : boolean);
  21.  
  22. Procedure CloseErrMgr;
  23.  
  24. Procedure GetSysErrText(errNbr : integer; var errMsg : Str255);
  25.  
  26.  
  27. { Miscellaneous stuff}
  28.  
  29. Function pause : boolean;
  30.  
  31. Function wait : boolean;
  32.  
  33.  
  34. Implementation
  35.  
  36. Procedure InitCursorCtl;    External;
  37.  
  38. Procedure RotateCursor;        External;
  39.  
  40. Procedure SpinCursor;        External;
  41.  
  42. Procedure Show_Cursor;        External;
  43.  
  44. Procedure Hide_Cursor;        External;
  45.  
  46. Procedure InitErrMgr;        External;
  47.  
  48. Procedure CloseErrMgr;        External;
  49.  
  50. Procedure GetSysErrText;    External;
  51.  
  52. Function pause;                External;
  53.  
  54. Function wait;                External;
  55.  
  56. end.
  57.